﻿Imports BUS
Public Class frmthemloaidocgia

    Private Sub SimpleButton_DongY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton_DongY.Click
        Dim sql As String = "Insert Into LOAIDOCGIA(TenLoaiDocGia) Values(" + "'" + TextEdit_LoaiDocGia.Text + "'" + ")"
        Dim bus As New LoaiDocGiaBUS()
        Dim kq As Integer = bus.ThemLoaiDocGia(sql)
        If kq = 1 Then
            MessageBox.Show("Thêm thành công !")
        Else
            MessageBox.Show("Thêm thất bại !")
        End If
        Close()
    End Sub
End Class